/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / mathematica.tex

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 46 69 6c 65 20 6d | 61 74 68 65 6d 61 74 69 |% File m|athemati|
|00000010| 63 61 2e 74 65 78 20 2d | 2d 20 54 65 58 2f 4c 61 |ca.tex -|- TeX/La|
|00000020| 54 65 58 20 6d 6d 61 20 | 63 6f 6d 6d 6f 6e 20 63 |TeX mma |common c|
|00000030| 6f 64 65 0a 25 20 4d 61 | 63 72 6f 73 20 66 6f 72 |ode.% Ma|cros for|
|00000040| 20 54 65 58 2f 4d 61 74 | 68 65 6d 61 74 69 63 61 | TeX/Mat|hematica|
|00000050| 20 64 6f 63 75 6d 65 6e | 74 73 0a 25 20 57 72 69 | documen|ts.% Wri|
|00000060| 74 74 65 6e 20 32 2f 32 | 36 2f 31 39 39 31 20 62 |tten 2/2|6/1991 b|
|00000070| 79 20 44 61 6e 20 44 69 | 6c 6c 20 64 61 6e 40 63 |y Dan Di|ll dan@c|
|00000080| 68 65 6d 2e 62 75 2e 65 | 64 75 0a 0a 0a 25 20 43 |hem.bu.e|du...% C|
|00000090| 6f 70 79 72 69 67 68 74 | 20 28 43 29 20 31 39 39 |opyright| (C) 199|
|000000a0| 31 20 44 61 6e 20 44 69 | 6c 6c 0a 25 20 54 68 69 |1 Dan Di|ll.% Thi|
|000000b0| 73 20 69 73 20 70 61 72 | 74 20 6f 66 20 54 65 58 |s is par|t of TeX|
|000000c0| 2f 4d 61 74 68 65 6d 61 | 74 69 63 61 0a 25 0a 25 |/Mathema|tica.%.%|
|000000d0| 20 54 65 58 2f 4d 61 74 | 68 65 6d 61 74 69 63 61 | TeX/Mat|hematica|
|000000e0| 20 69 73 20 64 69 73 74 | 72 69 62 75 74 65 64 20 | is dist|ributed |
|000000f0| 69 6e 20 74 68 65 20 68 | 6f 70 65 20 74 68 61 74 |in the h|ope that|
|00000100| 20 69 74 20 77 69 6c 6c | 20 62 65 20 75 73 65 66 | it will| be usef|
|00000110| 75 6c 2c 20 62 75 74 0a | 25 20 57 49 54 48 4f 55 |ul, but.|% WITHOU|
|00000120| 54 20 41 4e 59 20 57 41 | 52 52 41 4e 54 59 2e 20 |T ANY WA|RRANTY. |
|00000130| 20 4e 6f 20 61 75 74 68 | 6f 72 20 6f 72 20 64 69 | No auth|or or di|
|00000140| 73 74 72 69 62 75 74 6f | 72 20 61 63 63 65 70 74 |stributo|r accept|
|00000150| 73 20 72 65 73 70 6f 6e | 73 69 62 69 6c 69 74 79 |s respon|sibility|
|00000160| 20 74 6f 0a 25 20 61 6e | 79 6f 6e 65 20 66 6f 72 | to.% an|yone for|
|00000170| 20 74 68 65 20 63 6f 6e | 73 65 71 75 65 6e 63 65 | the con|sequence|
|00000180| 73 20 6f 66 20 75 73 69 | 6e 67 20 69 74 20 6f 72 |s of usi|ng it or|
|00000190| 20 66 6f 72 20 77 68 65 | 74 68 65 72 20 69 74 20 | for whe|ther it |
|000001a0| 73 65 72 76 65 73 20 61 | 6e 79 0a 25 20 70 61 72 |serves a|ny.% par|
|000001b0| 74 69 63 75 6c 61 72 20 | 70 75 72 70 6f 73 65 20 |ticular |purpose |
|000001c0| 6f 72 20 77 6f 72 6b 73 | 20 61 74 20 61 6c 6c 2c |or works| at all,|
|000001d0| 20 75 6e 6c 65 73 73 20 | 68 65 20 73 61 79 73 20 | unless |he says |
|000001e0| 73 6f 20 69 6e 20 77 72 | 69 74 69 6e 67 2e 0a 25 |so in wr|iting..%|
|000001f0| 0a 25 20 45 76 65 72 79 | 6f 6e 65 20 69 73 20 67 |.% Every|one is g|
|00000200| 72 61 6e 74 65 64 20 70 | 65 72 6d 69 73 73 69 6f |ranted p|ermissio|
|00000210| 6e 20 74 6f 20 63 6f 70 | 79 2c 20 6d 6f 64 69 66 |n to cop|y, modif|
|00000220| 79 20 61 6e 64 20 72 65 | 64 69 73 74 72 69 62 75 |y and re|distribu|
|00000230| 74 65 20 74 68 69 73 0a | 25 20 66 69 6c 65 2c 20 |te this.|% file, |
|00000240| 70 72 6f 76 69 64 65 64 | 3a 0a 25 20 20 31 2e 20 |provided|:.%  1. |
|00000250| 20 41 6c 6c 20 63 6f 70 | 69 65 73 20 63 6f 6e 74 | All cop|ies cont|
|00000260| 61 69 6e 20 74 68 69 73 | 20 63 6f 70 79 72 69 67 |ain this| copyrig|
|00000270| 68 74 20 6e 6f 74 69 63 | 65 2e 0a 25 20 20 32 2e |ht notic|e..%  2.|
|00000280| 20 20 41 6c 6c 20 6d 6f | 64 69 66 69 65 64 20 63 |  All mo|dified c|
|00000290| 6f 70 69 65 73 20 73 68 | 61 6c 6c 20 63 61 72 72 |opies sh|all carr|
|000002a0| 79 20 61 20 70 72 6f 6d | 69 6e 61 6e 74 20 6e 6f |y a prom|inant no|
|000002b0| 74 69 63 65 20 73 74 61 | 74 69 6e 67 20 77 68 6f |tice sta|ting who|
|000002c0| 0a 25 20 20 20 20 20 20 | 6d 61 64 65 20 74 68 65 |.%      |made the|
|000002d0| 20 6c 61 73 74 20 6d 6f | 64 69 66 69 63 61 74 69 | last mo|dificati|
|000002e0| 6f 6e 20 61 6e 64 20 74 | 68 65 20 64 61 74 65 20 |on and t|he date |
|000002f0| 6f 66 20 73 75 63 68 20 | 6d 6f 64 69 66 69 63 61 |of such |modifica|
|00000300| 74 69 6f 6e 2e 0a 25 20 | 20 33 2e 20 20 4e 6f 20 |tion..% | 3.  No |
|00000310| 63 68 61 72 67 65 20 69 | 73 20 6d 61 64 65 20 66 |charge i|s made f|
|00000320| 6f 72 20 74 68 69 73 20 | 73 6f 66 74 77 61 72 65 |or this |software|
|00000330| 20 6f 72 20 77 6f 72 6b | 73 20 64 65 72 69 76 65 | or work|s derive|
|00000340| 64 20 66 72 6f 6d 20 69 | 74 2e 20 20 0a 25 20 20 |d from i|t.  .%  |
|00000350| 20 20 20 20 54 68 69 73 | 20 63 6c 61 75 73 65 20 |    This| clause |
|00000360| 73 68 61 6c 6c 20 6e 6f | 74 20 62 65 20 63 6f 6e |shall no|t be con|
|00000370| 73 74 72 75 65 64 20 61 | 73 20 63 6f 6e 73 74 72 |strued a|s constr|
|00000380| 61 69 6e 69 6e 67 20 6f | 74 68 65 72 20 73 6f 66 |aining o|ther sof|
|00000390| 74 77 61 72 65 0a 25 20 | 20 20 20 20 20 64 69 73 |tware.% |     dis|
|000003a0| 74 72 69 62 75 74 65 64 | 20 6f 6e 20 74 68 65 20 |tributed| on the |
|000003b0| 73 61 6d 65 20 6d 65 64 | 69 75 6d 20 61 73 20 74 |same med|ium as t|
|000003c0| 68 69 73 20 73 6f 66 74 | 77 61 72 65 2c 20 6e 6f |his soft|ware, no|
|000003d0| 72 20 69 73 20 61 0a 25 | 20 20 20 20 20 20 64 69 |r is a.%|      di|
|000003e0| 73 74 72 69 62 75 74 69 | 6f 6e 20 66 65 65 20 63 |stributi|on fee c|
|000003f0| 6f 6e 73 69 64 65 72 65 | 64 20 61 20 63 68 61 72 |onsidere|d a char|
|00000400| 67 65 2e 0a 25 0a 25 20 | 54 68 65 20 72 69 67 68 |ge..%.% |The righ|
|00000410| 74 20 74 6f 20 64 69 73 | 74 72 69 62 75 74 65 20 |t to dis|tribute |
|00000420| 74 68 69 73 20 66 69 6c | 65 20 66 6f 72 20 70 72 |this fil|e for pr|
|00000430| 6f 66 69 74 20 6f 72 20 | 61 73 20 70 61 72 74 20 |ofit or |as part |
|00000440| 6f 66 20 61 6e 79 20 63 | 6f 6d 6d 65 72 63 69 61 |of any c|ommercia|
|00000450| 6c 0a 25 20 70 72 6f 64 | 75 63 74 20 69 73 20 73 |l.% prod|uct is s|
|00000460| 70 65 63 69 66 69 63 61 | 6c 6c 79 20 72 65 73 65 |pecifica|lly rese|
|00000470| 72 76 65 64 20 66 6f 72 | 20 74 68 65 20 61 75 74 |rved for| the aut|
|00000480| 68 6f 72 2e 0a 0a 0a 0a | 5c 65 76 65 72 79 6a 6f |hor.....|\everyjo|
|00000490| 62 7b 5c 74 79 70 65 6f | 75 74 7b 54 65 58 2f 4d |b{\typeo|ut{TeX/M|
|000004a0| 61 74 68 65 6d 61 74 69 | 63 61 20 60 6d 61 74 68 |athemati|ca `math|
|000004b0| 65 6d 61 74 69 63 61 2e | 74 65 78 27 20 56 65 72 |ematica.|tex' Ver|
|000004c0| 73 69 6f 6e 20 31 2e 32 | 20 3c 4d 6f 6e 20 46 65 |sion 1.2| <Mon Fe|
|000004d0| 62 20 32 35 20 31 39 39 | 31 3e 7d 7d 0a 5c 69 6d |b 25 199|1>}}.\im|
|000004e0| 6d 65 64 69 61 74 65 5c | 77 72 69 74 65 31 30 7b |mediate\|write10{|
|000004f0| 54 65 58 2f 4d 61 74 68 | 65 6d 61 74 69 63 61 20 |TeX/Math|ematica |
|00000500| 60 6d 61 74 68 65 6d 61 | 74 69 63 61 2e 74 65 78 |`mathema|tica.tex|
|00000510| 27 20 56 65 72 73 69 6f | 6e 20 31 2e 32 20 3c 4d |' Versio|n 1.2 <M|
|00000520| 6f 6e 20 46 65 62 20 32 | 35 20 31 39 39 31 3e 7d |on Feb 2|5 1991>}|
|00000530| 0a 0a 25 20 4c 65 66 74 | 20 69 6e 64 65 6e 74 61 |..% Left| indenta|
|00000540| 74 69 6f 6e 0a 5c 64 65 | 66 5c 6d 6d 61 69 6e 64 |tion.\de|f\mmaind|
|00000550| 65 6e 74 23 31 7b 5c 67 | 64 65 66 5c 40 6d 6d 61 |ent#1{\g|def\@mma|
|00000560| 69 6e 64 65 6e 74 7b 23 | 31 7d 7d 0a 25 5c 67 64 |indent{#|1}}.%\gd|
|00000570| 65 66 5c 40 6d 6d 61 69 | 6e 64 65 6e 74 7b 5c 7a |ef\@mmai|ndent{\z|
|00000580| 40 7d 0a 5c 67 64 65 66 | 5c 40 6d 6d 61 69 6e 64 |@}.\gdef|\@mmaind|
|00000590| 65 6e 74 7b 5c 70 61 72 | 69 6e 64 65 6e 74 7d 0a |ent{\par|indent}.|
|000005a0| 0a 0a 25 20 56 65 72 62 | 61 74 69 6d 20 73 65 74 |..% Verb|atim set|
|000005b0| 75 70 0a 25 20 54 68 69 | 73 20 68 61 6e 64 6c 65 |up.% Thi|s handle|
|000005c0| 73 20 6c 65 61 64 69 6e | 67 20 73 70 61 63 65 73 |s leadin|g spaces|
|000005d0| 20 6f 6e 20 61 20 6c 69 | 6e 65 2c 20 73 70 61 63 | on a li|ne, spac|
|000005e0| 65 73 20 61 66 74 65 72 | 20 2e 2c 20 65 74 63 2e |es after| ., etc.|
|000005f0| 20 54 65 58 62 6f 6f 6b | 20 70 2e 20 33 35 32 2c | TeXbook| p. 352,|
|00000600| 20 34 32 31 0a 7b 5c 6f | 62 65 79 73 70 61 63 65 | 421.{\o|beyspace|
|00000610| 73 5c 67 64 65 66 20 7b | 5c 20 7d 7d 20 25 20 5c |s\gdef {|\ }} % \|
|00000620| 6f 62 65 79 73 70 61 63 | 65 73 20 6e 6f 77 20 67 |obeyspac|es now g|
|00000630| 69 76 65 20 5c 20 2c 20 | 6e 6f 74 20 5c 73 70 61 |ive \ , |not \spa|
|00000640| 63 65 0a 5c 64 65 66 5c | 75 6e 63 61 74 63 6f 64 |ce.\def\|uncatcod|
|00000650| 65 73 70 65 63 69 61 6c | 73 7b 5c 64 65 66 5c 64 |especial|s{\def\d|
|00000660| 6f 23 23 31 7b 5c 63 61 | 74 63 6f 64 65 60 23 23 |o##1{\ca|tcode`##|
|00000670| 31 3d 31 32 20 7d 5c 64 | 6f 73 70 65 63 69 61 6c |1=12 }\d|ospecial|
|00000680| 73 7d 0a 5c 64 65 66 5c | 73 65 74 75 70 76 65 72 |s}.\def\|setupver|
|00000690| 62 61 74 69 6d 7b 25 0a | 09 5c 76 40 72 62 73 69 |batim{%.|.\v@rbsi|
|000006a0| 7a 65 0a 09 5c 64 65 66 | 5c 70 61 72 7b 5c 6c 65 |ze..\def|\par{\le|
|000006b0| 61 76 65 76 6d 6f 64 65 | 5c 65 67 72 6f 75 70 5c |avevmode|\egroup\|
|000006c0| 62 6f 78 30 5c 65 6e 64 | 67 72 61 66 7d 0a 09 5c |box0\end|graf}..\|
|000006d0| 6f 62 65 79 6c 69 6e 65 | 73 20 5c 75 6e 63 61 74 |obeyline|s \uncat|
|000006e0| 63 6f 64 65 73 70 65 63 | 69 61 6c 73 0a 09 5c 6f |codespec|ials..\o|
|000006f0| 62 65 79 73 70 61 63 65 | 73 0a 09 5c 63 61 74 63 |beyspace|s..\catc|
|00000700| 6f 64 65 60 5c 60 3d 5c | 61 63 74 69 76 65 20 5c |ode`\`=\|active \|
|00000710| 63 61 74 63 6f 64 65 60 | 5c 5e 5e 49 3d 5c 61 63 |catcode`|\^^I=\ac|
|00000720| 74 69 76 65 0a 09 5c 63 | 61 74 63 6f 64 65 60 5c |tive..\c|atcode`\|
|00000730| 60 3d 31 32 0a 09 5c 65 | 76 65 72 79 70 61 72 7b |`=12..\e|verypar{|
|00000740| 5c 73 74 61 72 74 62 6f | 78 7d 7d 0a 0a 0a 25 20 |\startbo|x}}...% |
|00000750| 54 61 62 20 65 78 70 61 | 6e 73 69 6f 6e 0a 5c 64 |Tab expa|nsion.\d|
|00000760| 65 66 5c 73 74 61 72 74 | 62 6f 78 7b 5c 73 65 74 |ef\start|box{\set|
|00000770| 62 6f 78 30 3d 5c 68 62 | 6f 78 5c 62 67 72 6f 75 |box0=\hb|ox\bgrou|
|00000780| 70 7d 20 20 25 20 54 68 | 65 20 62 6f 78 20 69 73 |p}  % Th|e box is|
|00000790| 20 77 69 64 74 68 20 5c | 74 68 65 5c 77 2e 0a 7b | width \|the\w..{|
|000007a0| 5c 63 61 74 63 6f 64 65 | 60 5c 5e 5e 49 3d 5c 61 |\catcode|`\^^I=\a|
|000007b0| 63 74 69 76 65 20 25 20 | 44 6f 6e 27 74 20 75 73 |ctive % |Don't us|
|000007c0| 65 20 3c 74 61 62 3e 20 | 66 6f 72 20 74 68 65 20 |e <tab> |for the |
|000007d0| 72 65 73 74 20 6f 66 20 | 74 68 69 73 20 74 65 78 |rest of |this tex|
|000007e0| 74 21 0a 20 5c 67 64 65 | 66 5e 5e 49 7b 5c 6c 65 |t!. \gde|f^^I{\le|
|000007f0| 61 76 65 76 6d 6f 64 65 | 5c 65 67 72 6f 75 70 0a |avevmode|\egroup.|
|00000800| 20 20 20 5c 64 69 6d 65 | 6e 30 3d 5c 77 64 30 20 |   \dime|n0=\wd0 |
|00000810| 25 20 77 69 64 74 68 20 | 73 6f 20 66 61 72 2c 20 |% width |so far, |
|00000820| 6f 72 20 73 69 6e 63 65 | 20 70 72 65 76 69 6f 75 |or since| previou|
|00000830| 73 20 74 61 62 0a 20 20 | 20 5c 64 69 76 69 64 65 |s tab.  | \divide|
|00000840| 5c 64 69 6d 65 6e 30 20 | 62 79 5c 77 0a 20 20 20 |\dimen0 |by\w.   |
|00000850| 5c 6d 75 6c 74 69 70 6c | 79 5c 64 69 6d 65 6e 30 |\multipl|y\dimen0|
|00000860| 20 62 79 5c 77 20 25 20 | 63 6f 6d 70 75 74 65 20 | by\w % |compute |
|00000870| 70 72 65 76 69 6f 75 73 | 20 6d 75 6c 74 69 70 6c |previous| multipl|
|00000880| 65 20 6f 66 20 5c 77 0a | 20 20 20 5c 61 64 76 61 |e of \w.|   \adva|
|00000890| 6e 63 65 5c 64 69 6d 65 | 6e 30 20 62 79 5c 77 20 |nce\dime|n0 by\w |
|000008a0| 25 20 61 64 76 61 6e 63 | 65 20 74 6f 20 6e 65 78 |% advanc|e to nex|
|000008b0| 74 20 6d 75 6c 74 69 70 | 6c 65 20 6f 66 20 5c 77 |t multip|le of \w|
|000008c0| 0a 20 20 20 5c 77 64 30 | 3d 5c 64 69 6d 65 6e 30 |.   \wd0|=\dimen0|
|000008d0| 20 5c 62 6f 78 30 20 5c | 73 74 61 72 74 62 6f 78 | \box0 \|startbox|
|000008e0| 7d 7d 0a 0a 0a 25 20 54 | 68 69 73 20 68 61 63 6b |}}...% T|his hack|
|000008f0| 20 64 69 73 63 61 72 64 | 73 20 43 52 20 61 66 74 | discard|s CR aft|
|00000900| 65 72 20 5c 62 65 67 69 | 6e 7b 6d 6d 61 7d 2e 2e |er \begi|n{mma}..|
|00000910| 2e 20 74 6f 20 70 72 65 | 76 65 6e 74 20 61 20 62 |. to pre|vent a b|
|00000920| 6c 61 6e 6b 20 6c 69 6e | 65 20 61 74 20 74 68 65 |lank lin|e at the|
|00000930| 20 73 74 61 72 74 0a 25 | 20 6f 66 20 63 65 6c 6c | start.%| of cell|
|00000940| 73 2e 20 20 49 74 20 77 | 6f 72 6b 73 20 28 49 20 |s.  It w|orks (I |
|00000950| 74 68 69 6e 6b 29 20 62 | 65 63 61 75 73 65 20 54 |think) b|ecause T|
|00000960| 65 58 20 72 65 61 64 73 | 20 70 61 73 74 20 74 68 |eX reads| past th|
|00000970| 65 20 43 52 20 69 6e 20 | 67 65 74 74 69 6e 67 20 |e CR in |getting |
|00000980| 74 68 65 0a 25 20 22 6e | 65 78 74 20 74 6f 6b 65 |the.% "n|ext toke|
|00000990| 6e 22 20 66 6f 72 20 5c | 66 75 74 75 72 65 6c 65 |n" for \|futurele|
|000009a0| 74 2e 0a 5c 64 65 66 5c | 40 6d 6d 61 7b 5c 66 75 |t..\def\|@mma{\fu|
|000009b0| 74 75 72 65 6c 65 74 5c | 6e 65 78 74 63 68 61 72 |turelet\|nextchar|
|000009c0| 5c 40 40 40 6d 6d 61 7d | 0a 0a 5c 64 65 66 5c 40 |\@@@mma}|..\def\@|
|000009d0| 40 40 6d 6d 61 7b 5c 6d | 6d 40 73 65 74 64 69 6d |@@mma{\m|m@setdim|
|000009e0| 73 0a 09 5c 6c 65 74 5c | 6d 6d 40 74 61 69 6c 20 |s..\let\|mm@tail |
|000009f0| 3d 20 5c 6d 6d 40 65 6e | 64 20 25 20 4d 61 79 20 |= \mm@en|d % May |
|00000a00| 68 61 76 65 20 6d 6f 72 | 65 20 74 68 61 6e 20 6f |have mor|e than o|
|00000a10| 6e 65 20 65 6e 64 20 69 | 6e 20 66 75 74 75 72 65 |ne end i|n future|
|00000a20| 0a 09 5c 69 66 78 5c 6e | 65 78 74 63 68 61 72 20 |..\ifx\n|extchar |
|00000a30| 5b 25 0a 09 09 5c 6c 65 | 74 5c 6e 65 78 74 20 3d |[%...\le|t\next =|
|00000a40| 20 5c 40 6d 6d 61 69 6e | 69 74 0a 09 5c 65 6c 73 | \@mmain|it..\els|
|00000a50| 65 0a 09 09 5c 6c 65 74 | 5c 6d 6d 40 68 65 61 64 |e...\let|\mm@head|
|00000a60| 20 3d 20 5c 6d 6d 40 73 | 74 61 72 74 0a 09 09 5c | = \mm@s|tart...\|
|00000a70| 6c 65 74 5c 6e 65 78 74 | 20 3d 20 5c 40 40 6d 6d |let\next| = \@@mm|
|00000a80| 61 0a 09 5c 66 69 20 5c | 6e 65 78 74 7d 0a 0a 5c |a..\fi \|next}..\|
|00000a90| 64 65 66 5c 40 6d 6d 61 | 69 6e 69 74 5b 23 31 5d |def\@mma|init[#1]|
|00000aa0| 7b 25 20 4a 75 73 74 20 | 67 6f 62 62 6c 65 20 75 |{% Just |gobble u|
|00000ab0| 70 20 61 72 67 75 6d 65 | 6e 74 20 66 6f 72 20 6e |p argume|nt for n|
|00000ac0| 6f 77 2e 20 20 45 78 61 | 6d 69 6e 65 20 77 68 65 |ow.  Exa|mine whe|
|00000ad0| 6e 20 6d 6f 72 65 20 6f | 70 74 69 6f 6e 73 0a 09 |n more o|ptions..|
|00000ae0| 5c 6c 65 74 5c 6d 6d 40 | 68 65 61 64 20 3d 20 5c |\let\mm@|head = \|
|00000af0| 6d 6d 40 73 74 61 72 74 | 69 6e 69 74 0a 09 5c 66 |mm@start|init..\f|
|00000b00| 75 74 75 72 65 6c 65 74 | 5c 6e 65 78 74 63 68 61 |uturelet|\nextcha|
|00000b10| 72 25 20 47 6f 62 62 6c | 65 20 75 70 20 43 52 20 |r% Gobbl|e up CR |
|00000b20| 69 66 20 61 6e 79 0a 09 | 5c 40 40 6d 6d 61 7d 0a |if any..|\@@mma}.|
|00000b30| 0a 0a 0a 0a 5c 64 65 66 | 5c 40 40 6d 6d 61 7b 5c |....\def|\@@mma{\|
|00000b40| 62 69 67 62 72 65 61 6b | 0a 09 5c 6d 6d 40 68 65 |bigbreak|..\mm@he|
|00000b50| 61 64 0a 09 5c 62 65 67 | 69 6e 67 72 6f 75 70 0a |ad..\beg|ingroup.|
|00000b60| 09 09 5c 70 61 72 69 6e | 64 65 6e 74 3d 5c 40 6d |..\parin|dent=\@m|
|00000b70| 6d 61 69 6e 64 65 6e 74 | 20 25 20 49 6e 64 65 6e |maindent| % Inden|
|00000b80| 74 20 6c 69 73 74 69 6e | 67 0a 09 09 5c 73 65 74 |t listin|g...\set|
|00000b90| 75 70 76 65 72 62 61 74 | 69 6d 0a 09 09 5c 64 6f |upverbat|im...\do|
|00000ba0| 76 65 72 62 61 74 69 6d | 7d 0a 0a 0a 25 20 5c 65 |verbatim|}...% \e|
|00000bb0| 6e 64 7b 6d 61 74 68 65 | 6d 61 74 69 63 61 7d 0a |nd{mathe|matica}.|
|00000bc0| 5c 62 65 67 69 6e 67 72 | 6f 75 70 0a 25 20 52 65 |\begingr|oup.% Re|
|00000bd0| 64 65 66 69 6e 65 20 67 | 72 6f 75 70 69 6e 67 20 |define g|rouping |
|00000be0| 63 68 61 72 61 63 74 65 | 72 73 2c 20 73 6f 20 7b |characte|rs, so {|
|00000bf0| 2e 2e 2e 7d 20 63 61 6e | 20 64 65 6c 69 6d 69 74 |...} can| delimit|
|00000c00| 20 6d 61 63 72 6f 0a 5c | 63 61 74 63 6f 64 65 20 | macro.\|catcode |
|00000c10| 60 5c 7b 3d 31 32 20 5c | 63 61 74 63 6f 64 65 20 |`\{=12 \|catcode |
|00000c20| 60 5c 7d 3d 31 32 20 5c | 63 61 74 63 6f 64 65 20 |`\}=12 \|catcode |
|00000c30| 60 5b 3d 31 20 5c 63 61 | 74 63 6f 64 65 20 60 5d |`[=1 \ca|tcode `]|
|00000c40| 3d 32 0a 25 20 52 65 64 | 65 66 69 6e 65 20 65 73 |=2.% Red|efine es|
|00000c50| 63 61 70 65 2c 20 73 6f | 20 5c 65 6e 64 20 63 61 |cape, so| \end ca|
|00000c60| 6e 20 62 65 20 61 20 6d | 61 63 72 6f 20 64 65 6c |n be a m|acro del|
|00000c70| 69 6d 69 74 65 72 0a 5c | 63 61 74 63 6f 64 65 60 |imiter.\|catcode`|
|00000c80| 5c 7c 3d 30 20 5c 63 61 | 74 63 6f 64 65 60 5c 5c |\|=0 \ca|tcode`\\|
|00000c90| 3d 31 32 20 25 20 7c 20 | 69 73 20 74 65 6d 70 6f |=12 % | |is tempo|
|00000ca0| 72 61 72 79 20 65 73 63 | 61 70 65 20 63 68 61 72 |rary esc|ape char|
|00000cb0| 61 63 74 65 72 0a 09 7c | 6f 62 65 79 6c 69 6e 65 |acter..||obeyline|
|00000cc0| 73 7c 67 64 65 66 7c 64 | 6f 76 65 72 62 61 74 69 |s|gdef|d|overbati|
|00000cd0| 6d 23 31 5c 65 6e 64 7b | 6d 61 74 68 65 6d 61 74 |m#1\end{|mathemat|
|00000ce0| 69 63 61 7d 5e 5e 4d 25 | 0a 09 09 09 09 09 20 20 |ica}^^M%|......  |
|00000cf0| 20 20 25 47 6f 62 62 6c | 65 20 43 52 20 61 74 20 |  %Gobbl|e CR at |
|00000d00| 65 6e 64 20 6f 66 20 5c | 65 6e 64 7b 6d 61 74 68 |end of \|end{math|
|00000d10| 65 6d 61 74 69 63 61 7d | 0a 09 5b 23 31 7c 65 6e |ematica}|..[#1|en|
|00000d20| 64 67 72 6f 75 70 7c 6d | 6d 40 74 61 69 6c 7c 62 |dgroup|m|m@tail|b|
|00000d30| 69 67 62 72 65 61 6b 7c | 6e 6f 69 6e 64 65 6e 74 |igbreak||noindent|
|00000d40| 5d 25 0a 7c 65 6e 64 67 | 72 6f 75 70 0a 0a 25 20 |]%.|endg|roup..% |
|00000d50| 43 65 6c 6c 20 67 72 61 | 70 68 69 63 73 0a 5c 64 |Cell gra|phics.\d|
|00000d60| 65 66 5c 6d 6d 40 62 6f | 78 23 31 7b 5c 68 62 6f |ef\mm@bo|x#1{\hbo|
|00000d70| 78 7b 5c 76 72 75 6c 65 | 5c 76 62 6f 78 7b 5c 68 |x{\vrule|\vbox{\h|
|00000d80| 72 75 6c 65 0a 09 5c 68 | 62 6f 78 20 73 70 72 65 |rule..\h|box spre|
|00000d90| 61 64 20 31 70 74 7b 5c | 68 66 69 6c 5c 76 62 6f |ad 1pt{\|hfil\vbo|
|00000da0| 78 20 74 6f 20 5c 6d 6d | 40 6c 65 6e 67 74 68 7b |x to \mm|@length{|
|00000db0| 5c 76 66 69 6c 0a 09 09 | 5c 68 62 6f 78 7b 5c 62 |\vfil...|\hbox{\b|
|00000dc0| 40 78 66 6f 6e 74 20 23 | 31 7d 25 0a 09 5c 76 66 |@xfont #|1}%..\vf|
|00000dd0| 69 6c 7d 5c 68 66 69 6c | 7d 0a 5c 68 72 75 6c 65 |il}\hfil|}.\hrule|
|00000de0| 7d 5c 76 72 75 6c 65 7d | 7d 0a 5c 64 65 66 5c 6d |}\vrule}|}.\def\m|
|00000df0| 6d 61 62 6f 78 23 31 7b | 5c 6d 6d 40 73 65 74 64 |mabox#1{|\mm@setd|
|00000e00| 69 6d 73 5c 6d 6d 40 62 | 6f 78 23 31 7d 20 25 20 |ims\mm@b|ox#1} % |
|00000e10| 45 78 74 65 72 6e 61 6c | 20 76 65 72 73 69 6f 6e |External| version|
|00000e20| 0a 0a 25 20 44 69 6d 65 | 6e 73 69 6f 6e 73 20 66 |..% Dime|nsions f|
|00000e30| 6f 72 20 63 6f 6e 73 74 | 72 75 63 74 69 6f 6e 20 |or const|ruction |
|00000e40| 6f 66 20 63 65 6c 6c 20 | 68 65 61 64 65 72 73 2f |of cell |headers/|
|00000e50| 66 6f 6f 74 65 72 0a 5c | 6e 65 77 64 69 6d 65 6e |footer.\|newdimen|
|00000e60| 5c 74 65 78 64 40 66 68 | 74 20 5c 74 65 78 64 40 |\texd@fh|t \texd@|
|00000e70| 66 68 74 3d 2e 34 70 74 | 20 25 20 70 6c 61 69 6e |fht=.4pt| % plain|
|00000e80| 20 54 65 58 20 64 65 66 | 61 75 6c 74 20 72 75 6c | TeX def|ault rul|
|00000e90| 65 20 68 65 69 67 68 74 | 0a 5c 6e 65 77 64 69 6d |e height|.\newdim|
|00000ea0| 65 6e 5c 6d 6d 40 6c 65 | 6e 67 74 68 20 25 20 4c |en\mm@le|ngth % L|
|00000eb0| 65 6e 67 74 68 20 6f 66 | 20 76 65 72 74 69 63 61 |ength of| vertica|
|00000ec0| 6c 20 74 69 63 73 20 6f | 6e 20 63 65 6c 6c 20 68 |l tics o|n cell h|
|00000ed0| 65 61 64 65 72 2f 66 6f | 6f 74 65 72 0a 5c 6e 65 |eader/fo|oter.\ne|
|00000ee0| 77 64 69 6d 65 6e 5c 6d | 6d 40 6c 65 6e 67 74 68 |wdimen\m|m@length|
|00000ef0| 68 61 6c 66 20 25 20 4f | 6e 65 2d 68 61 6c 66 20 |half % O|ne-half |
|00000f00| 6f 66 20 76 65 72 74 69 | 63 61 6c 20 74 69 63 20 |of verti|cal tic |
|00000f10| 6c 65 6e 67 74 68 0a 5c | 6e 65 77 64 69 6d 65 6e |length.\|newdimen|
|00000f20| 5c 6d 6d 40 6c 65 6e 67 | 74 68 70 6c 75 73 20 25 |\mm@leng|thplus %|
|00000f30| 20 56 65 72 74 69 63 61 | 6c 20 74 69 63 20 6c 65 | Vertica|l tic le|
|00000f40| 6e 67 74 68 20 70 6c 75 | 73 20 68 6f 72 69 7a 6f |ngth plu|s horizo|
|00000f50| 6e 61 74 61 6c 20 72 75 | 6c 65 20 68 65 69 67 68 |natal ru|le heigh|
|00000f60| 74 0a 0a 25 20 45 78 65 | 63 75 74 65 20 66 6f 72 |t..% Exe|cute for|
|00000f70| 20 65 61 63 68 20 63 65 | 6c 6c 20 69 6e 20 63 61 | each ce|ll in ca|
|00000f80| 73 65 20 66 6f 6e 74 20 | 73 69 7a 65 20 68 61 73 |se font |size has|
|00000f90| 20 63 68 61 6e 67 65 64 | 0a 5c 64 65 66 5c 6d 6d | changed|.\def\mm|
|00000fa0| 40 73 65 74 64 69 6d 73 | 7b 0a 25 5c 6d 6d 40 6c |@setdims|{.%\mm@l|
|00000fb0| 65 6e 67 74 68 3d 5c 68 | 74 5c 73 74 72 75 74 62 |ength=\h|t\strutb|
|00000fc0| 6f 78 20 5c 61 64 76 61 | 6e 63 65 5c 6d 6d 40 6c |ox \adva|nce\mm@l|
|00000fd0| 65 6e 67 74 68 20 62 79 | 5c 64 70 5c 73 74 72 75 |ength by|\dp\stru|
|00000fe0| 74 62 6f 78 20 5c 64 69 | 76 69 64 65 5c 6d 6d 40 |tbox \di|vide\mm@|
|00000ff0| 6c 65 6e 67 74 68 20 62 | 79 20 32 0a 5c 6d 6d 40 |length b|y 2.\mm@|
|00001000| 6c 65 6e 67 74 68 3d 5c | 62 61 73 65 6c 69 6e 65 |length=\|baseline|
|00001010| 73 6b 69 70 20 5c 64 69 | 76 69 64 65 5c 6d 6d 40 |skip \di|vide\mm@|
|00001020| 6c 65 6e 67 74 68 20 62 | 79 20 32 0a 5c 6d 6d 40 |length b|y 2.\mm@|
|00001030| 6c 65 6e 67 74 68 68 61 | 6c 66 3d 5c 6d 6d 40 6c |lengthha|lf=\mm@l|
|00001040| 65 6e 67 74 68 20 5c 64 | 69 76 69 64 65 5c 6d 6d |ength \d|ivide\mm|
|00001050| 40 6c 65 6e 67 74 68 68 | 61 6c 66 20 62 79 20 32 |@lengthh|alf by 2|
|00001060| 0a 5c 6d 6d 40 6c 65 6e | 67 74 68 70 6c 75 73 3d |.\mm@len|gthplus=|
|00001070| 5c 6d 6d 40 6c 65 6e 67 | 74 68 20 5c 61 64 76 61 |\mm@leng|th \adva|
|00001080| 6e 63 65 5c 6d 6d 40 6c | 65 6e 67 74 68 70 6c 75 |nce\mm@l|engthplu|
|00001090| 73 20 62 79 20 5c 74 65 | 78 64 40 66 68 74 0a 7d |s by \te|xd@fht.}|
|000010a0| 0a 0a 5c 64 65 66 5c 6d | 6d 40 73 74 61 72 74 69 |..\def\m|m@starti|
|000010b0| 6e 69 74 7b 25 0a 09 5c | 76 73 6b 69 70 20 2d 5c |nit{%..\|vskip -\|
|000010c0| 6d 6d 40 6c 65 6e 67 74 | 68 68 61 6c 66 0a 09 5c |mm@lengt|hhalf..\|
|000010d0| 68 62 6f 78 20 74 6f 20 | 5c 68 73 69 7a 65 7b 25 |hbox to |\hsize{%|
|000010e0| 0a 09 09 5c 76 72 75 6c | 65 20 68 65 69 67 68 74 |...\vrul|e height|
|000010f0| 5c 74 65 78 64 40 66 68 | 74 20 64 65 70 74 68 5c |\texd@fh|t depth\|
|00001100| 6d 6d 40 6c 65 6e 67 74 | 68 0a 09 09 5c 68 72 75 |mm@lengt|h...\hru|
|00001110| 6c 65 66 69 6c 6c 0a 09 | 09 5c 6c 6f 77 65 72 5c |lefill..|.\lower\|
|00001120| 6d 6d 40 6c 65 6e 67 74 | 68 70 6c 75 73 5c 6d 6d |mm@lengt|hplus\mm|
|00001130| 40 62 6f 78 7b 49 7d 7d | 0a 09 5c 76 73 6b 69 70 |@box{I}}|..\vskip|
|00001140| 20 5c 6d 6d 40 6c 65 6e | 67 74 68 68 61 6c 66 7d | \mm@len|gthhalf}|
|00001150| 0a 5c 64 65 66 5c 6d 6d | 40 73 74 61 72 74 7b 25 |.\def\mm|@start{%|
|00001160| 0a 09 5c 76 73 6b 69 70 | 20 2d 5c 6d 6d 40 6c 65 |..\vskip| -\mm@le|
|00001170| 6e 67 74 68 68 61 6c 66 | 0a 09 5c 68 62 6f 78 20 |ngthhalf|..\hbox |
|00001180| 74 6f 20 5c 68 73 69 7a | 65 7b 25 0a 09 09 5c 76 |to \hsiz|e{%...\v|
|00001190| 72 75 6c 65 20 68 65 69 | 67 68 74 5c 74 65 78 64 |rule hei|ght\texd|
|000011a0| 40 66 68 74 20 64 65 70 | 74 68 5c 6d 6d 40 6c 65 |@fht dep|th\mm@le|
|000011b0| 6e 67 74 68 0a 09 09 5c | 68 72 75 6c 65 66 69 6c |ngth...\|hrulefil|
|000011c0| 6c 0a 09 09 5c 76 72 75 | 6c 65 20 68 65 69 67 68 |l...\vru|le heigh|
|000011d0| 74 5c 74 65 78 64 40 66 | 68 74 20 64 65 70 74 68 |t\texd@f|ht depth|
|000011e0| 5c 6d 6d 40 6c 65 6e 67 | 74 68 7d 0a 09 5c 76 73 |\mm@leng|th}..\vs|
|000011f0| 6b 69 70 20 5c 6d 6d 40 | 6c 65 6e 67 74 68 68 61 |kip \mm@|lengthha|
|00001200| 6c 66 7d 0a 5c 64 65 66 | 5c 6d 6d 40 65 6e 64 7b |lf}.\def|\mm@end{|
|00001210| 25 0a 09 5c 68 62 6f 78 | 20 74 6f 20 5c 68 73 69 |%..\hbox| to \hsi|
|00001220| 7a 65 7b 25 0a 09 09 5c | 76 72 75 6c 65 20 68 65 |ze{%...\|vrule he|
|00001230| 69 67 68 74 5c 6d 6d 40 | 6c 65 6e 67 74 68 70 6c |ight\mm@|lengthpl|
|00001240| 75 73 20 64 65 70 74 68 | 30 70 74 0a 09 09 5c 68 |us depth|0pt...\h|
|00001250| 72 75 6c 65 66 69 6c 6c | 0a 09 09 5c 76 72 75 6c |rulefill|...\vrul|
|00001260| 65 20 68 65 69 67 68 74 | 5c 6d 6d 40 6c 65 6e 67 |e height|\mm@leng|
|00001270| 74 68 70 6c 75 73 20 64 | 65 70 74 68 30 70 74 7d |thplus d|epth0pt}|
|00001280| 7d 0a 0a 0a 25 20 53 65 | 74 75 70 20 70 73 66 69 |}...% Se|tup psfi|
|00001290| 67 20 70 72 6f 6c 6f 67 | 20 2d 2d 2d 20 66 6f 72 |g prolog| --- for|
|000012a0| 20 4c 61 54 65 58 2f 4d | 61 74 68 65 6d 61 74 69 | LaTeX/M|athemati|
|000012b0| 63 61 20 67 72 61 70 68 | 69 63 73 0a 25 20 41 73 |ca graph|ics.% As|
|000012c0| 73 75 6d 65 73 20 70 73 | 66 69 67 2e 73 74 79 20 |sumes ps|fig.sty |
|000012d0| 6f 72 20 70 73 66 69 67 | 2e 74 65 78 0a 25 20 54 |or psfig|.tex.% T|
|000012e0| 68 69 73 20 6d 61 63 72 | 6f 20 73 68 6f 75 6c 64 |his macr|o should|
|000012f0| 20 62 65 20 69 6e 76 6f | 6b 65 20 61 66 74 65 72 | be invo|ke after|
|00001300| 20 5c 62 65 67 69 6e 7b | 64 6f 63 75 6d 65 6e 74 | \begin{|document|
|00001310| 7d 20 6f 72 20 5c 69 6e | 70 75 74 20 70 73 66 69 |} or \in|put psfi|
|00001320| 67 0a 25 20 45 64 69 74 | 20 74 68 65 20 6c 6f 63 |g.% Edit| the loc|
|00001330| 61 74 69 6f 6e 73 20 2f | 75 73 72 38 2f 64 61 6e |ations /|usr8/dan|
|00001340| 2f 74 65 78 2f 69 6e 70 | 75 74 73 2f 20 74 6f 20 |/tex/inp|uts/ to |
|00001350| 74 68 6f 73 65 20 66 6f | 72 20 79 6f 75 72 20 73 |those fo|r your s|
|00001360| 69 74 65 0a 5c 64 65 66 | 5c 70 73 66 69 67 69 6e |ite.\def|\psfigin|
|00001370| 69 74 7b 25 0a 25 20 41 | 72 62 6f 72 54 65 78 74 |it{%.% A|rborText|
|00001380| 20 64 76 69 70 73 0a 25 | 5c 73 70 65 63 69 61 6c | dvips.%|\special|
|00001390| 7b 70 73 3a 20 70 6c 6f | 74 66 69 6c 65 20 2f 75 |{ps: plo|tfile /u|
|000013a0| 73 72 38 2f 64 61 6e 2f | 74 65 78 2f 69 6e 70 75 |sr8/dan/|tex/inpu|
|000013b0| 74 73 2f 70 73 66 69 67 | 2e 70 72 6f 20 67 6c 6f |ts/psfig|.pro glo|
|000013c0| 62 61 6c 7d 0a 25 5c 73 | 70 65 63 69 61 6c 7b 70 |bal}.%\s|pecial{p|
|000013d0| 73 3a 20 70 6c 6f 74 66 | 69 6c 65 20 2f 75 73 72 |s: plotf|ile /usr|
|000013e0| 38 2f 64 61 6e 2f 74 65 | 78 2f 69 6e 70 75 74 73 |8/dan/te|x/inputs|
|000013f0| 2f 6d 6d 61 2e 70 72 6f | 2e 31 2e 32 20 67 6c 6f |/mma.pro|.1.2 glo|
|00001400| 62 61 6c 7d 0a 25 20 52 | 6f 6b 69 63 6b 69 20 64 |bal}.% R|okicki d|
|00001410| 76 69 70 73 0a 5c 73 70 | 65 63 69 61 6c 7b 68 65 |vips.\sp|ecial{he|
|00001420| 61 64 65 72 3d 2f 75 73 | 72 2f 73 77 77 2f 6c 69 |ader=/us|r/sww/li|
|00001430| 62 2f 74 65 78 2f 69 6e | 70 75 74 73 2f 70 73 66 |b/tex/in|puts/psf|
|00001440| 69 67 2e 70 72 6f 7d 0a | 5c 73 70 65 63 69 61 6c |ig.pro}.|\special|
|00001450| 7b 68 65 61 64 65 72 3d | 2f 75 73 72 2f 6c 6f 63 |{header=|/usr/loc|
|00001460| 61 6c 2f 6d 61 74 68 2f | 50 61 63 6b 61 67 65 73 |al/math/|Packages|
|00001470| 2f 54 65 58 2f 6d 6d 61 | 2e 70 72 6f 2e 31 2e 32 |/TeX/mma|.pro.1.2|
|00001480| 7d 0a 25 5c 73 70 65 63 | 69 61 6c 7b 68 65 61 64 |}.%\spec|ial{head|
|00001490| 65 72 3d 2f 75 73 72 38 | 2f 64 61 6e 2f 74 65 78 |er=/usr8|/dan/tex|
|000014a0| 2f 69 6e 70 75 74 73 2f | 6d 6d 61 2e 70 72 6f 2e |/inputs/|mma.pro.|
|000014b0| 31 2e 32 7d 0a 7d 0a    |                         |1.2}.}. |        |
+--------+-------------------------+-------------------------+--------+--------+